10 REM ***  PULS-MODULATION
11 :
12 :UT=10   :REM AUF-ZEIT     (UP-TIME)
13 :DT=10   :REM AB-ZEIT    (DOWN-TIME)
14 :UL=40   :REM AUF-SCHRITT (UP-LEVEL)
15 :DL=20   :REM AB-SCHRITT(DOWN-LEVEL)
16 :P=400   :REM START-TASTVERH.(PULSE)
19 :
20 REM * TON EINSCHALTEN
21 :
22 S=54272:POKES+4,8:POKES+24,15 :REM  VOLLE LAUTSTAERKE
23 POKES+6,255:POKES+5,0:POKES+4,65 :REM  ADSR UND RECHTECK-WELLENFORM SETZEN
25 POKES,0:POKES+1,10 :REM  TONHOEHE SETZEN
26 POKES+2,PAND255:POKES+3,P/256 :REM TASTVERHAELTNIS MIT LO-UND HI-BYTE SETZEN
29 :
40 REM * PULSE !
41 :
42 FORI=0TOUT :REM  SCHLEIFE FUERS HOCHZAEHLEN
43 P=P+UL     :REM  TASTVERHAELTNIS UM UP-LEVEL ERHOEHEN
44 POKES+2,PAND255:POKES+3,P/256 :REM  NEUES TASTVERHAELTNIS SETZEN
45 NEXT       :REM  SCHLEIFENENDE
47 FORI=0TODT :REM  SCHLEIFE FUERS RUNTERZAEHLEN
48 P=P-DL     :REM  TASTVERH. UM DOWN-LEVEL VERMINDERN
49 POKES+2,PAND255:POKES+3,P/256 :REM  NEUES TASTVERH. SETZEN
50 NEXT       :REM  SCHLEIFENENDE
52 GOTO42     :REM  ...UND NOCHMAL...